home *** CD-ROM | disk | FTP | other *** search
/ PCMania 64 / PCMania CD64_1.iso / pcmania / vbasic64 / vb232.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1997-10-19  |  2.9 KB  |  106 lines
  1. VERSION 4.00
  2. Begin VB.Form Form2 
  3.    Caption         =   "Lista de Juegos"
  4.    ClientHeight    =   4230
  5.    ClientLeft      =   1110
  6.    ClientTop       =   1515
  7.    ClientWidth     =   7335
  8.    Height          =   4635
  9.    Left            =   1050
  10.    LinkTopic       =   "Form2"
  11.    ScaleHeight     =   4230
  12.    ScaleWidth      =   7335
  13.    Top             =   1170
  14.    Width           =   7455
  15.    Begin VB.CommandButton Command2 
  16.       Caption         =   "Ver Datos"
  17.       Height          =   495
  18.       Left            =   6000
  19.       TabIndex        =   2
  20.       Top             =   3480
  21.       Width           =   975
  22.    End
  23.    Begin VB.CommandButton Command1 
  24.       Caption         =   "A
  25. adir"
  26.       Height          =   495
  27.       Left            =   360
  28.       TabIndex        =   1
  29.       Top             =   3480
  30.       Width           =   975
  31.    End
  32.    Begin VB.ListBox List1 
  33.       Height          =   2175
  34.       Left            =   1920
  35.       TabIndex        =   0
  36.       Top             =   720
  37.       Width           =   3615
  38.    End
  39. Attribute VB_Name = "Form2"
  40. Attribute VB_Creatable = False
  41. Attribute VB_Exposed = False
  42. Private Sub Command1_Click()
  43. Form1.Show
  44. Form1.Text4.Visible = False
  45. Form1.Label5.Visible = False
  46. Form1.Option2.Value = 1
  47. Form1.Option7.Value = 1
  48. Form1.Command1.Enabled = False
  49. End Sub
  50. Private Sub Command2_Click()
  51. UnJuego = ListaJuegos(List1.ListIndex)
  52. Form1.Show
  53. Form1.Text1.Text = UnJuego.Nombre
  54. Form1.Text2.Text = UnJuego.CasaEditora
  55. Form1.Text5.Text = UnJuego.Localizacion
  56. Form1.Text6.Text = UnJuego.Anotaciones
  57. Form1.Text3.Text = Str(UnJuego.A
  58. oPublicacion)
  59. i = 0
  60. Do While i < Form1.Combo1.ListCount
  61.     If Form1.Combo1.List(i) = UnJuego.Genero Then
  62.         Form1.Combo1.ListIndex = i
  63.     End If
  64.     i = i + 1
  65. Select Case UnJuego.Soporte
  66.     Case 1: Form1.Option1.Value = True
  67.     Case 2: Form1.Option2.Value = True
  68.     Case 3: Form1.Option3.Value = True
  69.     Case 4: Form1.Option4.Value = True
  70. End Select
  71. Select Case UnJuego.Calificacion
  72.     Case 1: Form1.Option5.Value = True
  73.     Case 2: Form1.Option6.Value = True
  74.     Case 3: Form1.Option7.Value = True
  75.     Case 4: Form1.Option8.Value = True
  76.     Case 5: Form1.Option9.Value = True
  77. End Select
  78. Form1.Check1.Value = UnJuego.Terminado
  79. Form1.Text4.Text = UnJuego.Fecha
  80. Form1.Command1.Enabled = False
  81. End Sub
  82. Private Sub Form_Activate()
  83. Form_Load
  84. End Sub
  85. Private Sub Form_Load()
  86. Id_Fichero = FreeFile
  87. Open "C:\tmp\juegos.dbv" For Random As Id_Fichero Len = Len(UnJuego)
  88. List1.Clear
  89. i = 1
  90. Do While i <= 20
  91.     Get Id_Fichero, i, UnJuego
  92.     If UnJuego.Nombre <> "" Then
  93.         ListaJuegos(i - 1) = UnJuego
  94.         List1.AddItem ListaJuegos(i - 1).Nombre
  95.     End If
  96.     i = i + 1
  97. Close Id_Fichero
  98. Command2.Enabled = False
  99. End Sub
  100. Private Sub List1_Click()
  101. Command2.Enabled = True
  102. End Sub
  103. Private Sub List1_DblClick()
  104. Command2_Click
  105. End Sub
  106.